REM COPY AND PASTE EXACTLY AS IS INTO AN EMULATOR WINDOW,
REM OR EXEC IT FROM DOS OR PRODOS.
REM START YOUR PROGRAM FROM LINE 40 OR HIGHER.

REM SLAMMER 1.1.1
0 REM ::SLAMMER!:::BY IVAN X::::DO NOT MODIFY LINES 0-9!::FOFOFOFOFOFOFOFOFO$O%O8IF*XX*&B*&B*&B*&B*&B*&B*&B*&B%O8IT*XX*&@*&@*&@*&@*&@*&@*&@*&@%O8IB*XX*&;*&;*&;*&;*&;*&;*&;*&;%OE;*&>*&>*&>*&>*&>*&>*&>*&>%OIC*&?*&?*&?*&?*&?*&?*&?*&?%OIDP!###
1 REM #######################*&<*&<*&<*&<*&<*&<*&<*&<%OJI4*XX*&:*&:*&:*&:*&:*&:*&:*&:%OE:*&=*&=*&=*&=*&=*&=*&=*&=%O8IT*XX*&@*&@*&@*&@*&@*&@*&@*&@%OJI0*XX*&E*&E*&E*&E*&E*&E*&E*&E%OI$JJXXH%O8I/*8*H%OH@
2 REM %OJIT*XX*&A*&A*&A*&A*&A*&A*&A*&A%OI(JJXXH%OI0JJXXH%OI)XXXXH%OI4JJXXH%OHI:H%OH@%OJIU*XX*&A*&A*&A*&A*&A*&A*&A*&A%OI(JJXXH%OIZXXXXH%OJI6*XXH%OI0JJXXH%OHI:H%OH@%O8IT*XX*&V*&V*&V*&V*&V*&V*&V*&V%OI4JJXX*&W*&W*&W*&W*&W*&W*&W*&WP2
3 REM %OI<JJXXH%O8ID*XXH%OX%OI<JJXXH%O8IZ*XXH%OH@%O8IN*XX*&A*&A*&A*&A*&A*&A*&A*&A%OI,JJXXH%OI8JXXXH%O8I-*XXH%OI4JJXXH%OHI:H%OH@%OJI:*X**&A*&A*&A*&A*&A*&A*&A*&A%OI,JJXXH%OJI5*XXH%O8I/*XXH%OI4JJXXH%OHI:H%OH@%OI,JJXXH%OJID*XXH%OH@
4 REM %OJI2*X**&A*&A*&A*&A*&A*&A*&A*&A%OI,JJXXH%OJI5*8*H%OIBXXXXH%OI4JJXXH%OHI:H%OH@*&A*&A*&A*&A*&A*&A*&A*&A%OI0JJXXH%OI6JXXXH%OJI/*XXH%OI4JJXXH%OHI:H%OH@%OJIE*XX*&A*&A*&A*&A*&A*&A*&A*&A%OI0JJXXH%O8I4*XXH%OJI.*XXH%OI4JJXXH%OHI:H%OH@%OXP!##
5 REM ########################%OI<JJXX*&A*&A*&A*&A*&A*&A*&A*&A%OI0JJXXH%OJI7*8*H%O8I.*XXH%OI4JJXXH%OHI:H%OH@PG
6 REM %O8IL*XX*&V*&V*&V*&V*&V*&V*&V*&V%OI8JJXX*&W*&W*&W*&W*&W*&W*&W*&W%OX%OQV**0D*0W**&Z*&Z*&Z*&ZX%OQV*****&Z*&Z*&Z*&Z%OEZXXXXX%OI4JJXXH%OI*XXXXH%OH@%OI(JJXXH%OJIR*XXH%OH@%OI0JJXXH%O8I9*8*H%OH@
7 REM JIEHHMFL@LHMBI@MHMDB@MJ@@EIIEJ@MHHM@OJJBHJHFDBLJHFCLJB@OHFDCHFCMJBG@HFCNJBA@HFCODLBLONB@EDOOIJFHFIEJHMOI@CFHFI@@HMOJ@CJIDLHMOH@CHEOJJ@@AKAGIJJLHKAGIHHM@EFKHJB@@J@@DKANMLIKBM@ECLHKANMO@DNLIB@O@OGKANMO@FHLICKO@FD@IH@LIJJO@@LN@@@M@DOLIP
8 REM KJO@DKHEMGM@DGN@@@M@BMJEK@HEOLHFMGK@BIJ@@BKFCOIFNJJEMGM@@FIFFHIFFJIFFLHHM@NOJFANIJKANMJJLHKANMHENNHFNMKANMM@JBF@JEJOHEOKBDKADHB@GKOHBI@O@HOHAHFII@FID@BH@IH@IM@@@BLHNHE@IHKHFHE@NIJIJ@IM@@@BNHJIIIIM@@@BKJHFANJENKHED@JENLHEDADLG@OO@AAA0
9 REM #########################################################################################################################################################################################################################################

REM MAGIC GOTO 2.0
10 IF PEEK(248)<248 THEN CALL PEEK(175)+PEEK(176)*256 : REM MAGIC GOTO HANDLER
11 CALL 2107 : REM INSTALL MAGIC GOTO 2.0
12 REM ****:C6 6A A0 FE B1 69 85 06 C8 B1 69 85 07 E6 6A C8 84 D7 84 E3 84 EE 84 EF A5 67 85 42 85 EC A5 68 85 43 85 ED A0 05 98 D1 06 D0 12 88 10 F8 AE F7 01 E0 22 D0 5A A5 06 85 69 A5 07 85 6A A5 69 85
13 REM :06 A5 6A 85 07 A9 00 A8 A2 14 91 69 E6 69 D0 02 E6 6A CA D0 F5 A0 05 98 91 06 88 10 FA C6 6A A5 07 91 69 88 A5 06 91 69 E6 6A A0 04 B1 EC C9 B2 D0 4C C8 B1 EC C9 20 D0 03 C8 D0 F7 C9 22 F0 11
14 REM :C9 53 D0 03 C8 C8 C8 B1 EC C9 5E D0 31 F0 02 D0 68 A5 69 69 01 85 69 A5 6A 69 00 85 6A 98 AA C6 6A A0 FE 88 B1 69 C8 C8 91 69 88 88 C0 FA D0 F3 8A 65 EC 91 69 A5 ED 69 00 C8 91 69 E6 6A A0 01
15 REM :B1 EC F0 0B AA 88 B1 EC 86 ED 85 EC 18 90 9B A5 73 A4 74 85 6F 84 70 A5 69 A4 6A 85 6B 84 6C 85 6D 84 6E BA CA 9A C6 F8 BD 00 01 9D FF 00 E8 E0 F9 90 F5 BA E0 F5 90 01 60 A5 06 18 69 10 85 40
16 REM :A5 07 69 00 85 41 B8 BA E0 F5 B0 23 BD 03 01 C9 B0 F0 1C C9 81 F0 18 A9 80 A0 06 91 06 A5 F6 85 EE A5 F7 85 EF A5 F4 85 CE A5 F5 85 CF D0 35 BA A0 06 B1 06 F0 13 24 B1 A9 00 91 06 A0 0D B1 06
17 REM :9D 00 01 CA 88 C0 07 B0 F5 BD 03 01 C9 B0 D0 2F BD 04 01 85 EE BD 05 01 85 EF BD 06 01 85 CE BD 07 01 85 CF 50 6F A2 01 A0 00 B1 CE D0 3B A0 02 B1 CE D0 28 A0 0A B1 06 85 EE C8 B1 06 85 EF 68
18 REM :68 A0 06 B1 06 10 0A A5 F6 85 75 A5 F7 85 76 50 08 A5 EE 85 75 A5 EF 85 76 4C 7C D9 A2 05 A0 03 B1 CE 85 EE C8 B1 CE 85 EF E6 CE D0 02 E6 CF CA D0 F7 A0 00 B1 CE C9 B0 D0 0E A0 01 B1 CE C9 40
19 REM :D0 B2 BA B8 50 83 D0 B7 C9 AB D0 9A 18 E6 CE D0 02 E6 CF B0 7A A0 00 B1 CE C9 22 F0 F0 24 B1 C9 24 F0 05 B8 C9 40 D0 33 BA A0 06 C8 E8 BD 00 01 91 06 C0 0D 90 F5 CA CA 9A 68 85 B8 68 85 B9 08
20 REM :20 95 D9 28 70 14 A0 01 B1 CE F0 09 C9 3A F0 05 C9 40 D0 B8 88 98 A0 06 91 06 60 A6 D7 D0 A7 A4 CE A6 CF 86 D7 C9 21 D0 06 A4 AF A6 B0 D0 0A C9 23 F0 06 C9 25 D0 E6 F0 0F 2A 85 E3 A5 69 E9 05
21 REM :85 40 A5 6A E9 00 85 41 84 42 86 43 8A D0 C3 24 E3 A2 01 A0 01 B1 40 D0 04 C0 00 D0 C0 D9 42 00 70 14 90 07 D0 21 88 30 1E F0 EA E6 40 D0 02 E6 41 CA F0 F7 30 DB 90 0F F0 EC A5 40 D0 02 C6 41
22 REM :C6 40 CA F0 F5 30 CA A0 01 B1 40 85 ED 88 B1 40 85 EC 88 C8 B1 CE F0 0C C9 22 F0 08 D1 EC F0 F3 50 C9 70 D6 B1 EC F0 0C C9 22 F0 08 C9 20 F0 04 C9 3A D0 EC A5 EC 85 B8 A5 ED 85 B9 A0 06 B1 06
23 REM :10 04 A9 00 91 06 4C DC D9
24 REM

REM NUINPUT 2.1
25 POKE 251,PEEK(64) : POKE 252,PEEK(65) : REM CALL 250 FOR NUINPUT
26 CALL 2107 : REM INSTALL NUINPUT 2.1
27 REM :A6 76 E8 D0 22 4C DD FB 53 54 24 4B 4C 24 4B 43 24 44 45 24 53 54 24 D0 53 54 24 C8 22 22 1E EB EC D7 ED EE EF 08 09 A5 B8 48 A5 B9 48 20 54 FF 9A 68 E9 26 85 B8 68 E9 00 85 B9 A5 B8 69 15 85 
28 REM :06 A5 B9 69 00 85 07 20 E3 DF 85 CE 84 CF 8A D0 05 86 FE CA 86 FD A9 00 85 0F 85 E3 A0 01 91 CE C8 98 91 CE 20 E3 DF A0 02 B1 06 AA B1 83 95 00 88 10 F6 E0 EF F0 0C A5 06 69 03 85 06 90 E5 E6 
29 REM :07 B0 E1 A6 FD D0 03 CA 86 FD 24 FE 70 08 66 E3 E4 EF B0 02 86 EF C8 84 34 A2 01 98 81 CD F0 04 24 FE 70 32 24 E3 70 18 10 43 B1 08 C4 EF 90 04 06 E3 F0 39 C9 7F F0 04 C9 20 B0 42 A9 5E D0 3E 
30 REM :10 06 C4 0F 90 6A 46 E3 C4 4F F0 04 A2 7F D0 71 46 E3 A5 08 30 17 20 46 DA 68 85 B9 68 85 B8 A5 08 24 FE 30 07 C9 03 D0 03 4C 63 D8 60 20 0C FD A4 34 29 7F F0 F7 85 08 84 09 A6 0F 86 4F AA 24 
31 REM :FE 30 0A E0 03 D0 06 A9 C0 85 E3 D0 8A 24 FE 70 5B E0 0D D0 17 A5 FE 29 04 F0 04 A5 D7 D0 0D 84 4F 98 D0 E3 A5 FE 29 02 D0 E1 F0 DB E0 15 D0 09 C4 0F B0 B9 B9 00 02 90 31 E0 7F F0 04 E0 08 D0 
32 REM :2B 98 F0 A9 A9 88 20 ED FD C4 0F 88 90 04 E0 7F F0 06 A5 FE 29 10 F0 0C A9 A0 20 ED FD A9 88 20 ED FD C6 0F 8A D0 A4 8A D0 83 90 67 E0 1B D0 12 A5 FE 29 08 F0 0C A5 4F F0 08 66 08 A9 00 85 4F 
33 REM :F0 85 E0 1C B0 11 8A 09 40 A4 D7 88 30 D9 D1 ED D0 F9 A4 34 8A D0 8B C4 FD B0 C9 A4 E3 30 26 A4 1E F0 1C 8A 88 30 C0 D1 EB F0 14 A5 FE 6A B0 F3 8A C9 61 90 EE C9 7B B0 EA 29 DF D1 EB D0 E4 A5 
34 REM :FE 29 20 D0 03 8A D0 0B 8A C9 61 90 06 C9 7B B0 02 29 DF A4 34 99 00 02 24 FE 70 05 09 80 20 ED FD C4 0F 90 02 E6 0F C8 38 B0 AE 09 
35 REM

39 GOSUB $ : REM INIT MAGIC GOTO
